home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 January / 1992-01.d64 / ms demo 1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  490b  |  25 lines
  1. 10 sys 49152
  2. 20 v1=53153:v2=53201
  3. 30 poke v1+32,0:poke v1+33,0
  4. 40 poke v2+32,0:poke v2+33,0
  5. 50 poke v1+17,peek(v1+17) or 32
  6. 60 poke v1+24,peek(v1+24) or 8
  7. 70 poke v1+24,(peek(v1+24) and 15) or 48
  8. 80 for i=3072 to 4071:poke i,48:next
  9. 90 for i=8192 to 16191:poke i,0:next
  10. 100 for x=0 to 319 step .5
  11. 110 y=int(90+80*sin(x/10))
  12. 120 ch%=x/8:ro%=y/8
  13. 130 ln=y and 7
  14. 140 by=8192+ro%*320+ch%*8+ln
  15. 150 bi=7-(x and 7)
  16. 160 poke by,peek(by) or 2^bi
  17. 170 next
  18. 180 print chr$(147);
  19. 190 for i=0 to 100:c=i and 31
  20. 192 poke 646,c
  21. 195 if c>=16 then print chr$(18);
  22. 200 print "this is line #";i
  23. 210 next
  24. 220 end
  25.